--This is a supercharged version of the Pop-Up Note idea
--originated by Eastgate Systems
--Upon copying this button into your stacks a field and OK button
--will be generated and linked. You may change the size, location
--or fonts, just dont change the names, they are critical to the process
--When you delete the arrow button the field and OK button will be
--deleted automatically.
-- Use in good health,
-- Steve Fuchs
--CIS: 71270,550
--GENIE: S.FUCHS
--
on deletebutton
if the short name of me is "lameduck" then exit deletebutton
beep(4)
answer "That represents a Pop-up Note!!" with "Delete" or "Cancel"
if it is "Cancel" then
choose browse tool
exit deletebutton
end if
put the short name of me into myname
Put myname into fieldname
put "f" into last character of fieldname
show card field fieldname
choose field tool
click at the location of card field fieldname
Type "X" with commandkey
put myname into okid
delete last char of okid
delete last char of okid
delete last char of okid
delete last char of okid
show card button id okid
choose button tool
click at the location of card button id okid
Type "X" with commandkey
set the name of me to "lameduck"
click at the location of me
Type "X" with commandkey
choose browse tool
end deletebutton
on mouseUp
put the short name of me into myname
Put myname into fieldname
put "f" into last character of fieldname
show card field fieldname
put myname into okid
delete last char of okid
delete last char of okid
delete last char of okid
delete last char of okid
show card button id okid
Put the name of me into holder
hide holder
end mouseUp
on newbutton
set cursor to 4
set lockscreen to true
put id of me into StartId
set lockmessages to true
set editbkgnd to false
domenu "New Field"
set name of card field number of card fields to "PupF"&StartId
Put "PupF"&StartId into holder
set style of card field holder to rectangle
put item 3 of the rect of me+1 into item 1 of Fieldrect
put item 2 of the rect of me-50 into item 2 of Fieldrect
put item 3 of the rect of me+135 into item 3 of Fieldrect
put item 4 of the rect of me into item 4 of Fieldrect
set rect of card field holder to fieldrect
set textsize of card field holder to 9
Put "This is the self-generating Pop-up note. Implemented"&& "by Steven Fuchs"&return&"CIS id: 71270,550"&return &"GENIE id: S.FUCHS" into card field holder
domenu "New Button"
Put the id of card button the number of card buttons into Theid
Set the name of card button id Theid to "OK"
Set showname of card button id Theid to true
put item 1 of Fieldrect+95 into item 1 of butrect
put item 4 of Fieldrect-15 into item 2 of butrect
put item 1 of butrect+60 into item 3 of butrect
put item 2 of butrect+20 into item 4 of butrect
set rect of card button id Theid to butrect
Put "PupF"&Startid into holder
set name of card field holder to Theid&"PupF"
set the name of me to Theid&"PupS"
Put the name of me into holder
hide holder
set script of card button id Theid to ""
Put "on mouseup" into line 1 of scr
Put "Put the id of me into canid" into line 2 of scr
Put "Put canid&""e&"pupf""e&" into holder" into line 3 of scr
Put "Hide card button id canid" into line 4 of scr
Put "hide card field holder" into line 5 of scr
Put "Put canid&""e&"pups""e&" into holder" into line 6 of scr
Put "show card button holder" into line 7 of scr
Put return&"end mouseup" after scr
set script of card button id Theid to scr
choose browse tool
end newbutton
-- part 7 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=146 top=149 right=230 bottom=359
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 768
-- line height: 16
-- part name: 8PupF
-- part 8 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=321 top=217 right=237 bottom=381
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseup
Put the id of me into canid
Put canid&"pupf" into holder
Hide card button id canid
hide card field holder
Put canid&"pups" into holder
show card button holder
end mouseup
-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=378 top=275 right=294 bottom=398
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 14PupS
----- HyperTalk script -----
--This is a supercharged version of the Pop-Up Note idea
--originated by Eastgate Systems
--Upon copying this button into your stacks a field and OK button
--will be generated and linked. You may change the size, location
--or fonts, just dont change the names, they are critical to the process
--When you delete the arrow button the field and OK button will be
--deleted automatically.
-- Use in good health,
-- Steve Fuchs
--CIS: 71270,550
--GENIE: S.FUCHS
--
on deletebutton
if the short name of me is "lameduck" then exit deletebutton
beep(4)
answer "That represents a Pop-up Note!!" with "Delete" or "Cancel"
if it is "Cancel" then
choose browse tool
exit deletebutton
end if
put the short name of me into myname
Put myname into fieldname
put "f" into last character of fieldname
show card field fieldname
choose field tool
click at the location of card field fieldname
Type "X" with commandkey
put myname into okid
delete last char of okid
delete last char of okid
delete last char of okid
delete last char of okid
show card button id okid
choose button tool
click at the location of card button id okid
Type "X" with commandkey
set the name of me to "lameduck"
click at the location of me
Type "X" with commandkey
choose browse tool
end deletebutton
on mouseUp
put the short name of me into myname
Put myname into fieldname
put "f" into last character of fieldname
show card field fieldname
put myname into okid
delete last char of okid
delete last char of okid
delete last char of okid
delete last char of okid
show card button id okid
Put the name of me into holder
hide holder
end mouseUp
on newbutton
set cursor to 4
set lockscreen to true
put id of me into StartId
set lockmessages to true
set editbkgnd to false
domenu "New Field"
set name of card field number of card fields to "PupF"&StartId
Put "PupF"&StartId into holder
set style of card field holder to rectangle
put item 3 of the rect of me+1 into item 1 of Fieldrect
put item 2 of the rect of me-50 into item 2 of Fieldrect
put item 3 of the rect of me+135 into item 3 of Fieldrect
put item 4 of the rect of me into item 4 of Fieldrect
set rect of card field holder to fieldrect
set textsize of card field holder to 9
Put "This is the self-generating Pop-up note. Implemented"&& "by Steven Fuchs"&return&"CIS id: 71270,550"&return &"GENIE id: S.FUCHS" into card field holder
domenu "New Button"
Put the id of card button the number of card buttons into Theid
Set the name of card button id Theid to "OK"
Set showname of card button id Theid to true
put item 1 of Fieldrect+95 into item 1 of butrect
put item 4 of Fieldrect-15 into item 2 of butrect
put item 1 of butrect+60 into item 3 of butrect
put item 2 of butrect+20 into item 4 of butrect
set rect of card button id Theid to butrect
Put "PupF"&Startid into holder
set name of card field holder to Theid&"PupF"
set the name of me to Theid&"PupS"
Put the name of me into holder
hide holder
set script of card button id Theid to ""
Put "on mouseup" into line 1 of scr
Put "Put the id of me into canid" into line 2 of scr
Put "Put canid&""e&"pupf""e&" into holder" into line 3 of scr
Put "Hide card button id canid" into line 4 of scr
Put "hide card field holder" into line 5 of scr
Put "Put canid&""e&"pups""e&" into holder" into line 6 of scr
Put "show card button holder" into line 7 of scr
Put return&"end mouseup" after scr
set script of card button id Theid to scr
choose browse tool
end newbutton
-- part 13 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=155 top=78 right=187 bottom=427
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 14PupF
-- part 14 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=353 top=184 right=204 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseup
Put the id of me into canid
Put canid&"pupf" into holder
Hide card button id canid
hide card field holder
Put canid&"pups" into holder
show card button holder
end mouseup
-- part 21 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=167 top=143 right=165 bottom=267
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Say it
----- HyperTalk script -----
on mouseUp
Put "20Pupf" into holder
Put card field holder into thefield
speak thefield
end mouseUp
-- part contents for background part 32
----- text -----
Personal
-- part contents for card part 7
----- text -----
This is the Memoryphone
by Steven Fuchs
Free, comments welcome
CIS id:71270,550
GEnie:S.FUCHS
-- part contents for card part 13
----- text -----
The Memory Phone is a stack for storing phone numbers, when you don't want to sift through the Address stack just to make a call.
Blank boxes can be filled simply by clicking in them, clicking with the option key down shows you the associated phone number, clicking with the shift key held down will erase the contents of that box.
The redial buffer holds the last 5 numbers dialed,
clicking on these boxes produce the same results although they will not be erased one at a time, to clear the buffer you shift-click on the "Redial Buffer" sign. Numbers that are dialed and are in the redial area will not be placed there, as it cuts down on repetitivity.
The phone buttons on the right reference other pages in this directory, click on an unused button to start a new page.
This stack is free for the taking and distributing.
.iso/Stacks/Hyper Business/Phone & Address Stuff/Memory Phone/card_2913_render.png){kind=link}
.iso/Stacks/Hyper Business/Phone & Address Stuff/Memory Phone/PATs.png){kind=link}